Cope if get-buffer-window-list is given a buffer name (like get-buffer-window does).

diff --git a/lisp/subr.el b/lisp/subr.el
index df91d84efc0f6e742371365e3568b42470f873d1..71566b2250d77518e2b4531e820b24a52265e46b 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -701,7 +701,7 @@ On other systems, this variable is normally always nil.")
 (defun get-buffer-window-list (buffer &optional frame)
   "Return windows currently displaying BUFFER, or nil if none.
 See `get-buffer-window' for the meaning of FRAME."
-  (let (windows)
+  (let ((buffer (if (bufferp buffer) buffer (get-buffer buffer))) windows)
     (walk-windows (function (lambda (window)
                              (if (eq (window-buffer window) buffer)
                                  (setq windows (cons window windows)))))